Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Gen./Lotus MarketPlace™ Demo/Demo Files/Run Movies/card_2981.txt

Text File | 1990-08-13 | 4.3 KB | 224 lines

-- card: 2981 from stack: in
-- bmap block id: 3350
-- flags: 0000
-- background id: 2617
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: 4005
-- rect: left=181 top=171 right=187 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: carlos
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true
  then
  set the hilite of me to false
else
  set the hilite of me to true
end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=181 top=213 right=229 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mike
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true
  then
  set the hilite of me to false
else
  set the hilite of me to true
end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=181 top=251 right=267 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sandra
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true
  then
  set the hilite of me to false
else
  set the hilite of me to true
end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=163 right=195 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  go to stack "TWhat1"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=204 right=236 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  go to stack "TWhat2"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=243 right=275 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  go to stack "TWhat3"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=160 top=294 right=309 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Movies
----- HyperTalk script -----
on mouseUp
  global movies_global, number_of_movies, current_movie
  put 0 into number_of_movies
  if the hilite of card button carlos is true
  then
  add 1 to number_of_movies
  put "go to stack TWhat1" into line number_of_movies of movies_global
end if

if the hilite of card button mike is true
then
add 1 to number_of_movies
put "go to stack TWhat2" into line number_of_movies of movies_global
end if

if the hilite of card button sandra is true
then
add 1 to number_of_movies
put "go to stack TWhat3" into line number_of_movies of movies_global
end if

if number_of_movies = 0
then
answer "You must select at least one movie." with "Cancel"
else
  put 0 into current_movie
  go to next card
end if


end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=282 top=294 right=309 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Return to Main Menu
----- HyperTalk script -----
on mouseUp
  visual effect dissolve to black
  visual effect dissolve
  pop card
end mouseUp


-- part 17 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=429 top=296 right=311 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  domenu "Quit Hypercard"
end mouseUp